home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / procssng / ccs / ccs-11tl.lha / lbl / xview / segal / file.G < prev    next >
Encoding:
Text File  |  1992-12-21  |  31.1 KB  |  1,131 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :popup-window
  5.     :name                   pop_load_image
  6.     :owner                  win
  7.     :width                  377
  8.     :height                 266
  9.     :background-color       ""
  10.     :foreground-color       ""
  11.     :label                  "Segal: Load Image"
  12.     :label-type             :string
  13.     :initial-state          :invisible
  14.     :show-footer            nil
  15.     :resizable              nil
  16.     :pinned                 nil
  17.     :done-handler           nil
  18.     :event-handler          nil
  19.     :user-data              ()
  20.     :actions                ()
  21. )
  22. (
  23.     :type                   :control-area
  24.     :name                   controls1
  25.     :owner                  pop_load_image
  26.     :help                   ""
  27.     :x                      0
  28.     :y                      0
  29.     :width                  377
  30.     :height                 266
  31.     :background-color       ""
  32.     :foreground-color       ""
  33.     :initial-state          :visible
  34.     :show-border            nil
  35.     :menu                   nil
  36.     :event-handler          nil
  37.     :user-data              ()
  38.     :actions                ()
  39. )
  40. (
  41.     :type                   :text-field
  42.     :name                   text_image_dname
  43.     :owner                  controls1
  44.     :help                   ""
  45.     :x                      51
  46.     :y                      20
  47.     :width                  314
  48.     :height                 15
  49.     :value-x                125
  50.     :value-y                20
  51.     :value-length           30
  52.     :stored-length          80
  53.     :rows                   3
  54.     :foreground-color       ""
  55.     :text-type              :alphanumeric
  56.     :label                  "Directory:"
  57.     :label-type             :string
  58.     :layout-type            :horizontal
  59.     :value-underlined       t
  60.     :initial-value          ""
  61.     :initial-state          :active
  62.     :read-only              nil
  63.     :notify-handler         nil
  64.     :event-handler          nil
  65.     :user-data              ()
  66.     :actions                ()
  67. )
  68. (
  69.     :type                   :text-field
  70.     :name                   text_image_fname
  71.     :owner                  controls1
  72.     :help                   ""
  73.     :x                      30
  74.     :y                      45
  75.     :width                  335
  76.     :height                 15
  77.     :value-x                125
  78.     :value-y                45
  79.     :value-length           30
  80.     :stored-length          80
  81.     :rows                   3
  82.     :foreground-color       ""
  83.     :text-type              :alphanumeric
  84.     :label                  "Image name:"
  85.     :label-type             :string
  86.     :layout-type            :horizontal
  87.     :value-underlined       t
  88.     :initial-value          ""
  89.     :initial-state          :active
  90.     :read-only              nil
  91.     :notify-handler         nil
  92.     :event-handler          nil
  93.     :user-data              ()
  94.     :actions                ()
  95. )
  96. (
  97.     :type                   :message
  98.     :name                   msg_format
  99.     :owner                  controls1
  100.     :help                   ""
  101.     :x                      22
  102.     :y                      76
  103.     :width                  95
  104.     :height                 13
  105.     :foreground-color       ""
  106.     :label                  "Image format:"
  107.     :label-type             :string
  108.     :label-bold             t
  109.     :initial-state          :inactive
  110.     :event-handler          nil
  111.     :user-data              ()
  112.     :actions                ()
  113. )
  114. (
  115.     :type                   :message
  116.     :name                   msg_bytes_required
  117.     :owner                  controls1
  118.     :help                   ""
  119.     :x                      14
  120.     :y                      99
  121.     :width                  103
  122.     :height                 13
  123.     :foreground-color       ""
  124.     :label                  "Bytes required:"
  125.     :label-type             :string
  126.     :label-bold             t
  127.     :initial-state          :inactive
  128.     :event-handler          nil
  129.     :user-data              ()
  130.     :actions                ()
  131. )
  132. (
  133.     :type                   :text-field
  134.     :name                   row_from
  135.     :owner                  controls1
  136.     :help                   ""
  137.     :x                      33
  138.     :y                      124
  139.     :width                  163
  140.     :height                 15
  141.     :value-x                125
  142.     :value-y                124
  143.     :value-length           3
  144.     :stored-length          80
  145.     :rows                   3
  146.     :foreground-color       ""
  147.     :text-type              :numeric
  148.     :label                  "Row-> from:"
  149.     :label-type             :string
  150.     :layout-type            :horizontal
  151.     :value-underlined       t
  152.     :max-value              100
  153.     :min-value              0
  154.     :initial-value          0
  155.     :initial-state          :inactive
  156.     :read-only              nil
  157.     :notify-handler         nil
  158.     :event-handler          nil
  159.     :user-data              ()
  160.     :actions                (
  161.         (
  162.         :from                   (pop_load_image row_from)
  163.         :when                   (Notify )
  164.         :to                     (pop_load_image row_from)
  165.         :function_type          ExecuteCode
  166.         :arg_type               (:string)
  167.         :action                 ("segal.r1 = value;
  168. if(segal.r2 < value) {
  169.     segal.r2 = value;
  170.     xv_set(File_pop_load_image->row_to,
  171.         PANEL_VALUE, value,
  172.         NULL);
  173. }
  174. update_bytes_required();")
  175.         )
  176.     )
  177. )
  178. (
  179.     :type                   :text-field
  180.     :name                   row_to
  181.     :owner                  controls1
  182.     :help                   ""
  183.     :x                      232
  184.     :y                      124
  185.     :width                  95
  186.     :height                 15
  187.     :value-x                256
  188.     :value-y                124
  189.     :value-length           3
  190.     :stored-length          80
  191.     :rows                   3
  192.     :foreground-color       ""
  193.     :text-type              :numeric
  194.     :label                  "to:"
  195.     :label-type             :string
  196.     :layout-type            :horizontal
  197.     :value-underlined       t
  198.     :max-value              100
  199.     :min-value              0
  200.     :initial-value          0
  201.     :initial-state          :inactive
  202.     :read-only              nil
  203.     :notify-handler         nil
  204.     :event-handler          nil
  205.     :user-data              ()
  206.     :actions                (
  207.         (
  208.         :from                   (pop_load_image row_to)
  209.         :when                   (Notify )
  210.         :to                     (pop_load_image row_to)
  211.         :function_type          ExecuteCode
  212.         :arg_type               (:string)
  213.         :action                 ("segal.r2 = value;
  214. if(segal.r1 > value) {
  215.     segal.r1 = value;
  216.     xv_set(File_pop_load_image->row_from,
  217.         PANEL_VALUE, value,
  218.         NULL);
  219. }
  220. update_bytes_required();")
  221.         )
  222.     )
  223. )
  224. (
  225.     :type                   :text-field
  226.     :name                   col_from
  227.     :owner                  controls1
  228.     :help                   ""
  229.     :x                      8
  230.     :y                      147
  231.     :width                  188
  232.     :height                 15
  233.     :value-x                125
  234.     :value-y                147
  235.     :value-length           3
  236.     :stored-length          80
  237.     :rows                   3
  238.     :foreground-color       ""
  239.     :text-type              :numeric
  240.     :label                  "Column-> from:"
  241.     :label-type             :string
  242.     :layout-type            :horizontal
  243.     :value-underlined       t
  244.     :max-value              100
  245.     :min-value              0
  246.     :initial-value          0
  247.     :initial-state          :inactive
  248.     :read-only              nil
  249.     :notify-handler         nil
  250.     :event-handler          nil
  251.     :user-data              ()
  252.     :actions                (
  253.         (
  254.         :from                   (pop_load_image col_from)
  255.         :when                   (Notify )
  256.         :to                     (pop_load_image col_from)
  257.         :function_type          ExecuteCode
  258.         :arg_type               (:string)
  259.         :action                 ("segal.c1 = value;
  260. if(segal.c2 < value) {
  261.     segal.c2 = value;
  262.     xv_set(File_pop_load_image->col_to,
  263.         PANEL_VALUE, value,
  264.         NULL);
  265. }
  266. update_bytes_required();")
  267.         )
  268.     )
  269. )
  270. (
  271.     :type                   :text-field
  272.     :name                   col_to
  273.     :owner                  controls1
  274.     :help                   ""
  275.     :x                      232
  276.     :y                      149
  277.     :width                  95
  278.     :height                 15
  279.     :value-x                256
  280.     :value-y                149
  281.     :value-length           3
  282.     :stored-length          80
  283.     :rows                   3
  284.     :foreground-color       ""
  285.     :text-type              :numeric
  286.     :label                  "to:"
  287.     :label-type             :string
  288.     :layout-type            :horizontal
  289.     :value-underlined       t
  290.     :max-value              100
  291.     :min-value              0
  292.     :initial-value          0
  293.     :initial-state          :inactive
  294.     :read-only              nil
  295.     :notify-handler         nil
  296.     :event-handler          nil
  297.     :user-data              ()
  298.     :actions                (
  299.         (
  300.         :from                   (pop_load_image col_to)
  301.         :when                   (Notify )
  302.         :to                     (pop_load_image col_to)
  303.         :function_type          ExecuteCode
  304.         :arg_type               (:string)
  305.         :action                 ("segal.c2 = value;
  306. if(segal.c1 > value) {
  307.     segal.c1 = value;
  308.     xv_set(File_pop_load_image->col_from,
  309.         PANEL_VALUE, value,
  310.         NULL);
  311. }
  312. update_bytes_required();")
  313.         )
  314.     )
  315. )
  316. (
  317.     :type                   :text-field
  318.     :name                   frm_from
  319.     :owner                  controls1
  320.     :help                   ""
  321.     :x                      19
  322.     :y                      172
  323.     :width                  177
  324.     :height                 15
  325.     :value-x                125
  326.     :value-y                172
  327.     :value-length           3
  328.     :stored-length          80
  329.     :rows                   3
  330.     :foreground-color       ""
  331.     :text-type              :numeric
  332.     :label                  "Frame-> from:"
  333.     :label-type             :string
  334.     :layout-type            :horizontal
  335.     :value-underlined       t
  336.     :max-value              100
  337.     :min-value              0
  338.     :initial-value          0
  339.     :initial-state          :inactive
  340.     :read-only              nil
  341.     :notify-handler         nil
  342.     :event-handler          nil
  343.     :user-data              ()
  344.     :actions                (
  345.         (
  346.         :from                   (pop_load_image frm_from)
  347.         :when                   (Notify )
  348.         :to                     (pop_load_image frm_from)
  349.         :function_type          ExecuteCode
  350.         :arg_type               (:string)
  351.         :action                 ("segal.f1 = value;
  352. if(segal.f2 < value) {
  353.     segal.f2 = value;
  354.     xv_set(File_pop_load_image->frm_to,
  355.         PANEL_VALUE, value,
  356.         NULL);
  357. }
  358. update_bytes_required();")
  359.         )
  360.     )
  361. )
  362. (
  363.     :type                   :text-field
  364.     :name                   frm_to
  365.     :owner                  controls1
  366.     :help                   ""
  367.     :x                      232
  368.     :y                      174
  369.     :width                  95
  370.     :height                 15
  371.     :value-x                256
  372.     :value-y                174
  373.     :value-length           3
  374.     :stored-length          80
  375.     :rows                   3
  376.     :foreground-color       ""
  377.     :text-type              :numeric
  378.     :label                  "to:"
  379.     :label-type             :string
  380.     :layout-type            :horizontal
  381.     :value-underlined       t
  382.     :max-value              100
  383.     :min-value              0
  384.     :initial-value          0
  385.     :initial-state          :inactive
  386.     :read-only              nil
  387.     :notify-handler         nil
  388.     :event-handler          nil
  389.     :user-data              ()
  390.     :actions                (
  391.         (
  392.         :from                   (pop_load_image frm_to)
  393.         :when                   (Notify )
  394.         :to                     (pop_load_image frm_to)
  395.         :function_type          ExecuteCode
  396.         :arg_type               (:string)
  397.         :action                 ("segal.f2 = value;
  398. if(segal.f1 > value) {
  399.     segal.f1 = value;
  400.     xv_set(File_pop_load_image->frm_from,
  401.         PANEL_VALUE, value,
  402.         NULL);
  403. }
  404. update_bytes_required();")
  405.         )
  406.     )
  407. )
  408. (
  409.     :type                   :setting
  410.     :name                   set_color_format
  411.     :owner                  controls1
  412.     :help                   ""
  413.     :x                      28
  414.     :y                      197
  415.     :width                  219
  416.     :height                 23
  417.     :value-x                125
  418.     :value-y                197
  419.     :rows                   1
  420.     :columns                0
  421.     :layout-type            :horizontal
  422.     :foreground-color       ""
  423.     :setting-type           :exclusive
  424.     :selection-required     t
  425.     :label                  "Color format:"
  426.     :label-type             :string
  427.     :notify-handler         nil
  428.     :event-handler          nil
  429.     :choices                ("Color" "Grayscale" )
  430.     :choice-label-types     (:string :string )
  431.     :choice-colors          ("" "" )
  432.     :initial-selections     (nil nil )
  433.     :initial-state          :inactive
  434.     :user-data              ()
  435.     :actions                (
  436.         (
  437.         :from                   (pop_load_image set_color_format "Color")
  438.         :when                   (Notify )
  439.         :to                     (pop_load_image set_color_format "Color")
  440.         :function_type          ExecuteCode
  441.         :arg_type               (:string)
  442.         :action                 ("segal.color = TRUE;
  443. update_bytes_required();")
  444.         )
  445.         (
  446.         :from                   (pop_load_image set_color_format "Grayscale")
  447.         :when                   (Notify )
  448.         :to                     (pop_load_image set_color_format "Grayscale")
  449.         :function_type          ExecuteCode
  450.         :arg_type               (:string)
  451.         :action                 ("segal.color = FALSE;
  452. update_bytes_required();
  453. img.hd.color_form = CFM_SGF;")
  454.         )
  455.     )
  456. )
  457. (
  458.     :type                   :button
  459.     :name                   but_load_image
  460.     :owner                  controls1
  461.     :help                   ""
  462.     :x                      144
  463.     :y                      240
  464.     :width                  87
  465.     :height                 19
  466.     :constant-width         nil
  467.     :button-type            :normal
  468.     :foreground-color       ""
  469.     :label                  "Load image"
  470.     :label-type             :string
  471.     :initial-state          :inactive
  472.     :menu                   nil
  473.     :notify-handler         nil
  474.     :event-handler          nil
  475.     :user-data              ()
  476.     :actions                (
  477.         (
  478.         :from                   (pop_load_image but_load_image)
  479.         :when                   (Notify )
  480.         :to                     (pop_load_image but_load_image)
  481.         :function_type          ExecuteCode
  482.         :arg_type               (:string)
  483.         :action                 ("load_image();
  484. ")
  485.         )
  486.     )
  487. )
  488. (
  489.     :type                   :button
  490.     :name                   but_close_image
  491.     :owner                  controls1
  492.     :help                   ""
  493.     :x                      317
  494.     :y                      240
  495.     :width                  51
  496.     :height                 19
  497.     :constant-width         nil
  498.     :button-type            :normal
  499.     :foreground-color       ""
  500.     :label                  "Close"
  501.     :label-type             :string
  502.     :initial-state          :active
  503.     :menu                   nil
  504.     :notify-handler         nil
  505.     :event-handler          nil
  506.     :user-data              ()
  507.     :actions                (
  508.         (
  509.         :from                   (pop_load_image but_close_image)
  510.         :when                   (Notify )
  511.         :to                     (pop_load_image)
  512.         :function_type          :user_defined
  513.         :arg_type               ()
  514.         :action                 (Hide)
  515.         )
  516.     )
  517. )
  518. (
  519.     :type                   :popup-window
  520.     :name                   pop_load_mask
  521.     :owner                  win
  522.     :width                  352
  523.     :height                 98
  524.     :background-color       ""
  525.     :foreground-color       ""
  526.     :label                  "Segal: Load Mask"
  527.     :label-type             :string
  528.     :initial-state          :invisible
  529.     :show-footer            nil
  530.     :resizable              nil
  531.     :pinned                 nil
  532.     :done-handler           nil
  533.     :event-handler          nil
  534.     :user-data              ()
  535.     :actions                ()
  536. )
  537. (
  538.     :type                   :control-area
  539.     :name                   controls3
  540.     :owner                  pop_load_mask
  541.     :help                   ""
  542.     :x                      0
  543.     :y                      0
  544.     :width                  352
  545.     :height                 98
  546.     :background-color       ""
  547.     :foreground-color       ""
  548.     :initial-state          :visible
  549.     :show-border            nil
  550.     :menu                   nil
  551.     :event-handler          nil
  552.     :user-data              ()
  553.     :actions                ()
  554. )
  555. (
  556.     :type                   :text-field
  557.     :name                   text_mask_dname
  558.     :owner                  controls3
  559.     :help                   ""
  560.     :x                      27
  561.     :y                      16
  562.     :width                  314
  563.     :height                 15
  564.     :value-x                101
  565.     :value-y                16
  566.     :value-length           30
  567.     :stored-length          80
  568.     :rows                   3
  569.     :foreground-color       ""
  570.     :text-type              :alphanumeric
  571.     :label                  "Directory:"
  572.     :label-type             :string
  573.     :layout-type            :horizontal
  574.     :value-underlined       t
  575.     :initial-value          ""
  576.     :initial-state          :active
  577.     :read-only              nil
  578.     :notify-handler         nil
  579.     :event-handler          nil
  580.     :user-data              ()
  581.     :actions                ()
  582. )
  583. (
  584.     :type                   :text-field
  585.     :name                   text_mask_fname
  586.     :owner                  controls3
  587.     :help                   ""
  588.     :x                      12
  589.     :y                      41
  590.     :width                  329
  591.     :height                 15
  592.     :value-x                101
  593.     :value-y                41
  594.     :value-length           30
  595.     :stored-length          80
  596.     :rows                   3
  597.     :foreground-color       ""
  598.     :text-type              :alphanumeric
  599.     :label                  "Mask name:"
  600.     :label-type             :string
  601.     :layout-type            :horizontal
  602.     :value-underlined       t
  603.     :initial-value          ""
  604.     :initial-state          :active
  605.     :read-only              nil
  606.     :notify-handler         nil
  607.     :event-handler          nil
  608.     :user-data              ()
  609.     :actions                ()
  610. )
  611. (
  612.     :type                   :button
  613.     :name                   but_load_mask
  614.     :owner                  controls3
  615.     :help                   ""
  616.     :x                      144
  617.     :y                      72
  618.     :width                  82
  619.     :height                 19
  620.     :constant-width         nil
  621.     :button-type            :normal
  622.     :foreground-color       ""
  623.     :label                  "Load mask"
  624.     :label-type             :string
  625.     :initial-state          :active
  626.     :menu                   nil
  627.     :notify-handler         load_mask
  628.     :event-handler          nil
  629.     :user-data              ()
  630.     :actions                (
  631.         (
  632.         :from                   (pop_load_mask but_load_mask)
  633.         :when                   (Notify )
  634.         :to                     (pop_load_mask but_load_mask)
  635.         :function_type          CallFunction
  636.         :arg_type               ()
  637.         :action                 (load_mask)
  638.         )
  639.     )
  640. )
  641. (
  642.     :type                   :button
  643.     :name                   but_close_mask
  644.     :owner                  controls3
  645.     :help                   ""
  646.     :x                      290
  647.     :y                      72
  648.     :width                  51
  649.     :height                 19
  650.     :constant-width         nil
  651.     :button-type            :normal
  652.     :foreground-color       ""
  653.     :label                  "Close"
  654.     :label-type             :string
  655.     :initial-state          :active
  656.     :menu                   nil
  657.     :notify-handler         nil
  658.     :event-handler          nil
  659.     :user-data              ()
  660.     :actions                (
  661.         (
  662.         :from                   (pop_load_mask but_close_mask)
  663.         :when                   (Notify )
  664.         :to                     (pop_load_mask)
  665.         :function_type          :user_defined
  666.         :arg_type               ()
  667.         :action                 (Hide)
  668.         )
  669.     )
  670. )
  671. (
  672.     :type                   :popup-window
  673.     :name                   pop_new_mask
  674.     :owner                  win
  675.     :width                  384
  676.     :height                 98
  677.     :background-color       ""
  678.     :foreground-color       ""
  679.     :label                  "Segal: New Mask"
  680.     :label-type             :string
  681.     :initial-state          :invisible
  682.     :show-footer            nil
  683.     :resizable              nil
  684.     :pinned                 nil
  685.     :done-handler           nil
  686.     :event-handler          nil
  687.     :user-data              ()
  688.     :actions                ()
  689. )
  690. (
  691.     :type                   :control-area
  692.     :name                   controls4
  693.     :owner                  pop_new_mask
  694.     :help                   ""
  695.     :x                      0
  696.     :y                      0
  697.     :width                  384
  698.     :height                 98
  699.     :background-color       ""
  700.     :foreground-color       ""
  701.     :initial-state          :visible
  702.     :show-border            nil
  703.     :menu                   nil
  704.     :event-handler          nil
  705.     :user-data              ()
  706.     :actions                ()
  707. )
  708. (
  709.     :type                   :text-field
  710.     :name                   text_new_dname
  711.     :owner                  controls4
  712.     :help                   ""
  713.     :x                      60
  714.     :y                      16
  715.     :width                  314
  716.     :height                 15
  717.     :value-x                134
  718.     :value-y                16
  719.     :value-length           30
  720.     :stored-length          80
  721.     :rows                   3
  722.     :foreground-color       ""
  723.     :text-type              :alphanumeric
  724.     :label                  "Directory:"
  725.     :label-type             :string
  726.     :layout-type            :horizontal
  727.     :value-underlined       t
  728.     :initial-value          ""
  729.     :initial-state          :active
  730.     :read-only              nil
  731.     :notify-handler         nil
  732.     :event-handler          nil
  733.     :user-data              ()
  734.     :actions                ()
  735. )
  736. (
  737.     :type                   :text-field
  738.     :name                   text_new_fname
  739.     :owner                  controls4
  740.     :help                   ""
  741.     :x                      11
  742.     :y                      41
  743.     :width                  363
  744.     :height                 15
  745.     :value-x                134
  746.     :value-y                41
  747.     :value-length           30
  748.     :stored-length          80
  749.     :rows                   3
  750.     :foreground-color       ""
  751.     :text-type              :alphanumeric
  752.     :label                  "New mask name:"
  753.     :label-type             :string
  754.     :layout-type            :horizontal
  755.     :value-underlined       t
  756.     :initial-value          ""
  757.     :initial-state          :active
  758.     :read-only              nil
  759.     :notify-handler         nil
  760.     :event-handler          nil
  761.     :user-data              ()
  762.     :actions                ()
  763. )
  764. (
  765.     :type                   :button
  766.     :name                   but_create_new
  767.     :owner                  controls4
  768.     :help                   ""
  769.     :x                      152
  770.     :y                      72
  771.     :width                  94
  772.     :height                 19
  773.     :constant-width         nil
  774.     :button-type            :normal
  775.     :foreground-color       ""
  776.     :label                  "Create mask"
  777.     :label-type             :string
  778.     :initial-state          :active
  779.     :menu                   nil
  780.     :notify-handler         nil
  781.     :event-handler          nil
  782.     :user-data              ()
  783.     :actions                (
  784.         (
  785.         :from                   (pop_new_mask but_create_new)
  786.         :when                   (Notify )
  787.         :to                     (pop_new_mask but_create_new)
  788.         :function_type          ExecuteCode
  789.         :arg_type               (:string)
  790.         :action                 ("new_mask_proc();")
  791.         )
  792.     )
  793. )
  794. (
  795.     :type                   :button
  796.     :name                   but_close_new
  797.     :owner                  controls4
  798.     :help                   ""
  799.     :x                      323
  800.     :y                      72
  801.     :width                  51
  802.     :height                 19
  803.     :constant-width         nil
  804.     :button-type            :normal
  805.     :foreground-color       ""
  806.     :label                  "Close"
  807.     :label-type             :string
  808.     :initial-state          :active
  809.     :menu                   nil
  810.     :notify-handler         nil
  811.     :event-handler          nil
  812.     :user-data              ()
  813.     :actions                (
  814.         (
  815.         :from                   (pop_new_mask but_close_new)
  816.         :when                   (Notify )
  817.         :to                     (pop_new_mask)
  818.         :function_type          :user_defined
  819.         :arg_type               ()
  820.         :action                 (Hide)
  821.         )
  822.     )
  823. )
  824. (
  825.     :type                   :popup-window
  826.     :name                   pop_save_as
  827.     :owner                  win
  828.     :width                  384
  829.     :height                 98
  830.     :background-color       ""
  831.     :foreground-color       ""
  832.     :label                  "Segal: Save Mask As"
  833.     :label-type             :string
  834.     :initial-state          :invisible
  835.     :show-footer            nil
  836.     :resizable              nil
  837.     :pinned                 nil
  838.     :done-handler           nil
  839.     :event-handler          nil
  840.     :user-data              ()
  841.     :actions                ()
  842. )
  843. (
  844.     :type                   :control-area
  845.     :name                   controls5
  846.     :owner                  pop_save_as
  847.     :help                   ""
  848.     :x                      0
  849.     :y                      0
  850.     :width                  384
  851.     :height                 98
  852.     :background-color       ""
  853.     :foreground-color       ""
  854.     :initial-state          :visible
  855.     :show-border            nil
  856.     :menu                   nil
  857.     :event-handler          nil
  858.     :user-data              ()
  859.     :actions                ()
  860. )
  861. (
  862.     :type                   :text-field
  863.     :name                   text_save_dname
  864.     :owner                  controls5
  865.     :help                   ""
  866.     :x                      50
  867.     :y                      16
  868.     :width                  314
  869.     :height                 15
  870.     :value-x                124
  871.     :value-y                16
  872.     :value-length           30
  873.     :stored-length          80
  874.     :rows                   3
  875.     :foreground-color       ""
  876.     :text-type              :alphanumeric
  877.     :label                  "Directory:"
  878.     :label-type             :string
  879.     :layout-type            :horizontal
  880.     :value-underlined       t
  881.     :initial-value          ""
  882.     :initial-state          :active
  883.     :read-only              nil
  884.     :notify-handler         nil
  885.     :event-handler          nil
  886.     :user-data              ()
  887.     :actions                ()
  888. )
  889. (
  890.     :type                   :text-field
  891.     :name                   text_save_fname
  892.     :owner                  controls5
  893.     :help                   ""
  894.     :x                      20
  895.     :y                      41
  896.     :width                  344
  897.     :height                 15
  898.     :value-x                124
  899.     :value-y                41
  900.     :value-length           30
  901.     :stored-length          80
  902.     :rows                   3
  903.     :foreground-color       ""
  904.     :text-type              :alphanumeric
  905.     :label                  "Save mask as:"
  906.     :label-type             :string
  907.     :layout-type            :horizontal
  908.     :value-underlined       t
  909.     :initial-value          ""
  910.     :initial-state          :active
  911.     :read-only              nil
  912.     :notify-handler         nil
  913.     :event-handler          nil
  914.     :user-data              ()
  915.     :actions                ()
  916. )
  917. (
  918.     :type                   :button
  919.     :name                   but_save_mask_as
  920.     :owner                  controls5
  921.     :help                   ""
  922.     :x                      151
  923.     :y                      72
  924.     :width                  82
  925.     :height                 19
  926.     :constant-width         nil
  927.     :button-type            :normal
  928.     :foreground-color       ""
  929.     :label                  "Save mask"
  930.     :label-type             :string
  931.     :initial-state          :active
  932.     :menu                   nil
  933.     :notify-handler         nil
  934.     :event-handler          nil
  935.     :user-data              ()
  936.     :actions                (
  937.         (
  938.         :from                   (pop_save_as but_save_mask_as)
  939.         :when                   (Notify )
  940.         :to                     (pop_save_as but_save_mask_as)
  941.         :function_type          ExecuteCode
  942.         :arg_type               (:string)
  943.         :action                 ("save_mask_as();")
  944.         )
  945.     )
  946. )
  947. (
  948.     :type                   :button
  949.     :name                   but_close_save
  950.     :owner                  controls5
  951.     :help                   ""
  952.     :x                      313
  953.     :y                      72
  954.     :width                  51
  955.     :height                 19
  956.     :constant-width         nil
  957.     :button-type            :normal
  958.     :foreground-color       ""
  959.     :label                  "Close"
  960.     :label-type             :string
  961.     :initial-state          :active
  962.     :menu                   nil
  963.     :notify-handler         nil
  964.     :event-handler          nil
  965.     :user-data              ()
  966.     :actions                (
  967.         (
  968.         :from                   (pop_save_as but_close_save)
  969.         :when                   (AnyEvent )
  970.         :to                     (pop_save_as)
  971.         :function_type          :user_defined
  972.         :arg_type               ()
  973.         :action                 (Hide)
  974.         )
  975.     )
  976. )
  977. (
  978.     :type                   :popup-window
  979.     :name                   pop_save_image
  980.     :owner                  win
  981.     :width                  384
  982.     :height                 98
  983.     :background-color       ""
  984.     :foreground-color       ""
  985.     :label                  "Segal: Save Image As"
  986.     :label-type             :string
  987.     :initial-state          :invisible
  988.     :show-footer            nil
  989.     :resizable              nil
  990.     :pinned                 nil
  991.     :done-handler           nil
  992.     :event-handler          nil
  993.     :user-data              ()
  994.     :actions                ()
  995. )
  996. (
  997.     :type                   :control-area
  998.     :name                   controls2
  999.     :owner                  pop_save_image
  1000.     :help                   ""
  1001.     :x                      0
  1002.     :y                      0
  1003.     :width                  384
  1004.     :height                 98
  1005.     :background-color       ""
  1006.     :foreground-color       ""
  1007.     :initial-state          :visible
  1008.     :show-border            nil
  1009.     :menu                   nil
  1010.     :event-handler          nil
  1011.     :user-data              ()
  1012.     :actions                ()
  1013. )
  1014. (
  1015.     :type                   :text-field
  1016.     :name                   text_i_save_dname
  1017.     :owner                  controls2
  1018.     :help                   ""
  1019.     :x                      50
  1020.     :y                      16
  1021.     :width                  314
  1022.     :height                 15
  1023.     :value-x                124
  1024.     :value-y                16
  1025.     :value-length           30
  1026.     :stored-length          80
  1027.     :rows                   3
  1028.     :foreground-color       ""
  1029.     :text-type              :alphanumeric
  1030.     :label                  "Directory:"
  1031.     :label-type             :string
  1032.     :layout-type            :horizontal
  1033.     :value-underlined       t
  1034.     :initial-value          ""
  1035.     :initial-state          :active
  1036.     :read-only              nil
  1037.     :notify-handler         nil
  1038.     :event-handler          nil
  1039.     :user-data              ()
  1040.     :actions                ()
  1041. )
  1042. (
  1043.     :type                   :text-field
  1044.     :name                   text_i_save_fname
  1045.     :owner                  controls2
  1046.     :help                   ""
  1047.     :x                      15
  1048.     :y                      41
  1049.     :width                  349
  1050.     :height                 15
  1051.     :value-x                124
  1052.     :value-y                41
  1053.     :value-length           30
  1054.     :stored-length          80
  1055.     :rows                   3
  1056.     :foreground-color       ""
  1057.     :text-type              :alphanumeric
  1058.     :label                  "Save image as:"
  1059.     :label-type             :string
  1060.     :layout-type            :horizontal
  1061.     :value-underlined       t
  1062.     :initial-value          ""
  1063.     :initial-state          :active
  1064.     :read-only              nil
  1065.     :notify-handler         nil
  1066.     :event-handler          nil
  1067.     :user-data              ()
  1068.     :actions                ()
  1069. )
  1070. (
  1071.     :type                   :button
  1072.     :name                   but_i_save_as
  1073.     :owner                  controls2
  1074.     :help                   ""
  1075.     :x                      149
  1076.     :y                      72
  1077.     :width                  87
  1078.     :height                 19
  1079.     :constant-width         nil
  1080.     :button-type            :normal
  1081.     :foreground-color       ""
  1082.     :label                  "Save image"
  1083.     :label-type             :string
  1084.     :initial-state          :active
  1085.     :menu                   nil
  1086.     :notify-handler         nil
  1087.     :event-handler          nil
  1088.     :user-data              ()
  1089.     :actions                (
  1090.         (
  1091.         :from                   (pop_save_image but_i_save_as)
  1092.         :when                   (Notify )
  1093.         :to                     (pop_save_image but_i_save_as)
  1094.         :function_type          ExecuteCode
  1095.         :arg_type               (:string)
  1096.         :action                 ("save_image_as();")
  1097.         )
  1098.     )
  1099. )
  1100. (
  1101.     :type                   :button
  1102.     :name                   but_i_close_save_as
  1103.     :owner                  controls2
  1104.     :help                   ""
  1105.     :x                      312
  1106.     :y                      72
  1107.     :width                  51
  1108.     :height                 19
  1109.     :constant-width         nil
  1110.     :button-type            :normal
  1111.     :foreground-color       ""
  1112.     :label                  "Close"
  1113.     :label-type             :string
  1114.     :initial-state          :active
  1115.     :menu                   nil
  1116.     :notify-handler         nil
  1117.     :event-handler          nil
  1118.     :user-data              ()
  1119.     :actions                (
  1120.         (
  1121.         :from                   (pop_save_image but_i_close_save_as)
  1122.         :when                   (Notify )
  1123.         :to                     (pop_save_image)
  1124.         :function_type          :user_defined
  1125.         :arg_type               ()
  1126.         :action                 (Hide)
  1127.         )
  1128.     )
  1129. )
  1130. )
  1131.